home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / com / mcl / mcl-setup.lisp < prev    next >
Encoding:
Text File  |  1994-09-27  |  1.4 KB  |  44 lines  |  [TEXT/CCL2]
  1. ;;; mcl-setup.lisp -- scripts for MCL haskell
  2. ;;;
  3. ;;; author :  Sandra Loosemore
  4. ;;; date   :  15 Jan 1993
  5. ;;;
  6. ;;; Since the Mac doesn't have a shell, this file contains some stuff to
  7. ;;; do basic system-building of the Yale Haskell system under MCL.
  8.  
  9.  
  10. ;;; MCL implements CLtL2 rather than CLtL1.  However, we still have a
  11. ;;; few references to the LISP package around in our code.
  12.  
  13. (if (not (find-package "LISP"))
  14.     (rename-package "COMMON-LISP" "COMMON-LISP" '("CL" "LISP")))
  15.  
  16.  
  17. ;;; Create the mumble-implementation package.  It's important to do this
  18. ;;; explicitly, because MCL's make-package defaults include extra junk that
  19. ;;; we don't want to have accessible.
  20.  
  21. (if (not (find-package "MUMBLE-IMPLEMENTATION"))
  22.     (make-package "MUMBLE-IMPLEMENTATION" :use '("COMMON-LISP")))
  23.  
  24. (in-package "MUMBLE-IMPLEMENTATION")
  25.  
  26.  
  27. ;;; MCL doesn't have environment variables, so we're rolling our own.
  28. ;;; You need to tweak this a-list when installing Yale Haskell to account
  29. ;;; for the place where you put it.
  30.  
  31. (defvar *environment-alist* 
  32.   '(("Y2"         . "Macintosh HD/haskell")
  33.     ("HASKELL"    . "$Y2")
  34.     ("PRELUDE"    . "$Y2/progs/prelude")
  35.     ("PRELUDEBIN" . "$Y2/progs/prelude/mcl")
  36.     ))
  37.  
  38.  
  39. ;;; These pathnames also need to be hardwired for bootstrapping.
  40.  
  41. (defvar *support-directory* "Macintosh HD:haskell:cl-support:")
  42. (defvar *support-binary-directory* "Macintosh HD:haskell:cl-support:mcl:")
  43.  
  44.